COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		SUBROUTINE OUTINF
C00005 ENDMK
C⊗;
	SUBROUTINE OUTINF
C THIS IS A DUMMY IN 2-PART SCORE PROGRAM
	RETURN
	END

	SUBROUTINE RUNIT
	COMMON J,L /Q/ BNW(200),NWZ /INS/RINST(27),BG(60) /JPREC/JPREC
	1 /VV/LIMIT,V(1) /A/NP(27),XT(27),FRM(80),INVIS(27)
	COMMON /DUR/DUR(27) /NUMP/NUMP 
	1/E/IQ(27),KL,X,ZPAR,KA,LK,NNUM,JJ,JA,ISUB,NFLG
	COMMON/B/MOT,PR,T5,NINS,I,RA,KZY,NWX,INONLY,MX,Y,Z,FNAME,
	1 MZ,N,IDALL  /D/TF,AMPFAC,OP1,DURX,IXIN,FLNM
 
	WRITE(1)FLNM,I,NWZ,NINS,IDALL,BY,JPREC,KZY,LIMIT,NUMP
	WRITE(1)(RINST(K),K=1,NINS),(DUR(K),K=1,NINS),(NP(K),K=1,NINS)
	1,(BG(K),K=1,NINS),(BNW(K),K=1,NWZ),(V(K),K=1,I),
	1(INVIS(K),K=1,NINS)
	TYPE 1,FLNM,I,NWZ,NINS
	TYPE 2,(RINST(K),K=1,NINS)
	TYPE 21,(NP(K),K=1,NINS)
	TYPE 30,(BG(K),K=1,NINS)
	TYPE 3,(DUR(K),K=1,NINS)
	TYPE 4,(BNW(K),K=1,NWZ)
CC	TYPE 5
	N=1
	TYPE 6
	ACCEPT 20,X
	IF(X.EQ.0)CALL EXIT
22	K=N+1
	IF(N.GE.I)CALL EXIT
	X=V(N)
	IF(X.EQ.-199.)GO TO 24
	IF(X.EQ.-99.)GO TO 24
	IF(X.GE.0)GO TO 23
	TYPE 20,X
	N=N+1
	GO TO 22
24	J=N+1
	GO TO 25
C  FOR 'SECTIONS'
23	J=ABS(V(K))+K-1
25	TYPE 20,(V(K),K=N,J)
	N=J+1
	GO TO 22
1	FORMAT(/' FILE NAME=',A4,'  I=',I4,'   NWZ=',I3,'   NINS=',I2/)
2	FORMAT(' INSTS=',27(A4,1X)/)
21	FORMAT(' NUM.PARAMS=',27I2/)
3	FORMAT(' DURS=',27F7.2/)
30	FORMAT(' BG TIMES=',27F7.2/)
4	FORMAT(' BNWS=',27F7.2/)
5	FORMAT(' V ARRAY='/)
6	FORMAT(' 1=SEE V ARRAY'/)
20    FORMAT(10F12.3)
	END